Step 1:Download packages

library(mosaic)
library(DataComputing)
library(tidyverse)
library(mosaicData)
library(dplyr)
library("rjson")

Step 2:Importing and preparing data

Canada <- read.csv("CAvideos.csv")
US <- read.csv("USvideos.csv")
GreatBritain <- read.csv(("GB.csv"))

Step 3:Look at the datatable by using summary functions

head(Canada)
tail(US)
names(GreatBritain)
 [1] "video_id"               "trending_date"          "title"                  "channel_title"         
 [5] "category_id"            "publish_time"           "tags"                   "views"                 
 [9] "likes"                  "dislikes"               "comment_count"          "thumbnail_link"        
[13] "comments_disabled"      "ratings_disabled"       "video_error_or_removed" "description"           
[17] "X"                      "X.1"                    "X.2"                    "X.3"                   
[21] "X.4"                    "X.5"                    "X.6"                    "X.7"                   
[25] "X.8"                    "X.9"                    "X.10"                   "X.11"                  
[29] "X.12"                   "X.13"                   "X.14"                   "X.15"                  
[33] "X.16"                   "X.17"                   "X.18"                   "X.19"                  
[37] "X.20"                   "X.21"                   "X.22"                   "X.23"                  
[41] "X.24"                   "X.25"                  

Step 4:Data Wrangling

GreatBritain <-
  GreatBritain %>%
  select(title,publish_time,channel_title,category_id,publish_time,tags,views,likes,dislikes,comment_count,thumbnail_link,description)
GreatBritain %>%
  filter(category_id == 10)
LS0tCnRpdGxlOiAiRmluYWwgUHJvamVjdCIKYXV0aG9yOiBKaWF5dWUgSGUgJiBYdWVmZWkgV2FuZwpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgojU3RlcCAxOkRvd25sb2FkIHBhY2thZ2VzCmBgYHtyfQpsaWJyYXJ5KG1vc2FpYykKbGlicmFyeShEYXRhQ29tcHV0aW5nKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShtb3NhaWNEYXRhKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KCJyanNvbiIpCmBgYAoKCiNTdGVwIDI6SW1wb3J0aW5nIGFuZCBwcmVwYXJpbmcgZGF0YQpgYGB7cn0KQ2FuYWRhIDwtIHJlYWQuY3N2KCJDQXZpZGVvcy5jc3YiKQpVUyA8LSByZWFkLmNzdigiVVN2aWRlb3MuY3N2IikKR3JlYXRCcml0YWluIDwtIHJlYWQuY3N2KCgiR0IuY3N2IikpCmBgYAoKI1N0ZXAgMzpMb29rIGF0IHRoZSBkYXRhdGFibGUgYnkgdXNpbmcgc3VtbWFyeSBmdW5jdGlvbnMKYGBge3J9CmhlYWQoQ2FuYWRhKQp0YWlsKFVTKQpuYW1lcyhHcmVhdEJyaXRhaW4pCmBgYAoKI1N0ZXAgNDpEYXRhIFdyYW5nbGluZwpgYGB7cn0KR3JlYXRCcml0YWluIDwtCiAgR3JlYXRCcml0YWluICU+JQogIHNlbGVjdCh0aXRsZSxwdWJsaXNoX3RpbWUsY2hhbm5lbF90aXRsZSxjYXRlZ29yeV9pZCxwdWJsaXNoX3RpbWUsdGFncyx2aWV3cyxsaWtlcyxkaXNsaWtlcyxjb21tZW50X2NvdW50LHRodW1ibmFpbF9saW5rLGRlc2NyaXB0aW9uKQpgYGAKCmBgYHtyfQpHcmVhdEJyaXRhaW4gJT4lCiAgZmlsdGVyKGNhdGVnb3J5X2lkID09IDEwKQpgYGAKCmBgYHtyfQoKYGBgCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK